home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / +look_here_1st!+ / reader_requests / alienbreed3d2 / cheesesauce / protsetup < prev    next >
Text File  |  1997-11-28  |  607b  |  38 lines
  1.  lea.l PROTCALLENC-400(pc),a0
  2.  adda.w #400,a0
  3.  move.l #$75055345,d0
  4.  move.w #(ENDPROT-PROTCALLENC)/4-1,d1
  5. decode:
  6.  add.l d0,(a0)+
  7.  ror.l #1,d0
  8.  dbra d1,decode
  9.  
  10.  
  11.  lea.l dummycall-5000(pc),a1
  12.  lea.l protspace-10000(pc),a2
  13.  lea.l DummyAdds-2000(pc),a3
  14.  moveq #0,d0
  15.  lea PROTCALLENC-200(pc),a4
  16.  adda.w #200,a4
  17.  jsr (a4)
  18.  
  19.  move.w #235,d0
  20. here:
  21.  lea.l PROTSETUP(pc),a0
  22.  move.w #(getrid-PROTSETUP)/2,d1
  23. getrid:
  24.  add.w d0,(a0)+
  25.  addq #6,d0
  26.  dbra d1,getrid
  27.  move.l #$4e754e75,d0
  28.  move.l d0,(a0)+
  29.  move.l d0,(a0)+
  30.  move.l d0,(a0)+
  31.  move.l d0,(a0)+
  32.  move.l d0,(a0)+
  33.  move.l d0,(a0)+
  34.  move.l d0,(a0)+
  35.  rts
  36.  
  37.  ds.w 10
  38.